home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / amssym.def < prev    next >
Text File  |  1995-11-25  |  4KB  |  95 lines
  1. %  AMSSYM.DEF                                           February 1990
  2.  
  3. %  This file contains definitions that perform the same functions as similar
  4. %  ones in AMS-TeX, so that the file AMSSYM.TEX can be used outside of AMS-TeX.
  5. %
  6. %  American Mathematical Society, Technical Support Group, P. O. Box 6248,
  7. %        Providence, RI 02940
  8. %  800-321-4AMS or 401-455-4080;  Internet: Tech-Support@Math.AMS.com
  9. %
  10. %  Copyright (C) 1990, American Mathematical Society.
  11. %  All rights reserved.  Copying of this file is authorized only if either:
  12. %       (1) you make absolutely no changes to your copy including name; OR
  13. %       (2) if you do make changes, you first rename it to some other name.
  14. %
  15. %  Instructions for using this file and the AMS symbol fonts are included in
  16. %  the AMSFonts 2.0 User's Guide.
  17. %
  18. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  19.  
  20. %  Store the catcode of the @ in the csname so that it can be restored later.
  21. \expandafter\chardef\csname pre amssym.def at\endcsname=\the\catcode`\@
  22. %  Set the catcode to 11 for use in private control sequence names.
  23. \catcode`\@=11
  24.  
  25. %  Include all definitions related to the fonts msam, msbm and eufm, so that
  26. %  when this file is used by itself, the results with respect to those fonts
  27. %  are equivalent to what they would have been using AMS-TeX.
  28. %  Most symbols in fonts msam and msbm are defined using \newsymbol;
  29. %  however, a few symbols that replace composites defined in plain must be
  30. %  defined with \mathchardef.
  31.  
  32. \def\undefine#1{\let#1\undefined}
  33. \def\newsymbol#1#2#3#4#5{\let\next@\relax
  34.  \ifnum#2=\@ne\let\next@\msafam@\else
  35.  \ifnum#2=\tw@\let\next@\msbfam@\fi\fi
  36.  \mathchardef#1="#3\next@#4#5}
  37. \def\mathhexbox@#1#2#3{\relax
  38.  \ifmmode\mathpalette{}{\m@th\mathchar"#1#2#3}%
  39.  \else\leavevmode\hbox{$\m@th\mathchar"#1#2#3$}\fi}
  40. \def\hexnumber@#1{\ifcase#1 0\or 1\or 2\or 3\or 4\or 5\or 6\or 7\or 8\or
  41.  9\or A\or B\or C\or D\or E\or F\fi}
  42.  
  43. \font\tenmsa=msam10
  44. \font\sevenmsa=msam7
  45. \font\fivemsa=msam5
  46. \newfam\msafam
  47. \textfont\msafam=\tenmsa
  48. \scriptfont\msafam=\sevenmsa
  49. \scriptscriptfont\msafam=\fivemsa
  50. \edef\msafam@{\hexnumber@\msafam}
  51. \mathchardef\dabar@"0\msafam@39
  52. \def\dashrightarrow{\mathrel{\dabar@\dabar@\mathchar"0\msafam@4B}}
  53. \def\dashleftarrow{\mathrel{\mathchar"0\msafam@4C\dabar@\dabar@}}
  54. \let\dasharrow\dashrightarrow
  55. \def\ulcorner{\delimiter"4\msafam@70\msafam@70 }
  56. \def\urcorner{\delimiter"5\msafam@71\msafam@71 }
  57. \def\llcorner{\delimiter"4\msafam@78\msafam@78 }
  58. \def\lrcorner{\delimiter"5\msafam@79\msafam@79 }
  59. \def\yen{{\mathhexbox@\msafam@55 }}
  60. \def\checkmark{{\mathhexbox@\msafam@58 }}
  61. \def\circledR{{\mathhexbox@\msafam@72 }}
  62. \def\maltese{{\mathhexbox@\msafam@7A }}
  63.  
  64. \font\tenmsb=msbm10
  65. \font\sevenmsb=msbm7
  66. \font\fivemsb=msbm5
  67. \newfam\msbfam
  68. \textfont\msbfam=\tenmsb
  69. \scriptfont\msbfam=\sevenmsb
  70. \scriptscriptfont\msbfam=\fivemsb
  71. \edef\msbfam@{\hexnumber@\msbfam}
  72. \def\Bbb#1{\fam\msbfam\relax#1}
  73. \def\setboxz@h{\setbox\z@\hbox} %added to fix file Oct. 8/90 P.Galko
  74. \def\wdz@{\wd\z@}               %added to fix file Oct. 8/90 P.Galko
  75. \def\widehat#1{\setboxz@h{$\m@th#1$}%
  76.  \ifdim\wdz@>\tw@ em\mathaccent"0\msbfam@5B{#1}%
  77.  \else\mathaccent"0362{#1}\fi}
  78. \def\widetilde#1{\setboxz@h{$\m@th#1$}%
  79.  \ifdim\wdz@>\tw@ em\mathaccent"0\msbfam@5D{#1}%
  80.  \else\mathaccent"0365{#1}\fi}
  81. \font\teneufm=eufm10
  82. \font\seveneufm=eufm7
  83. \font\fiveeufm=eufm5
  84. \newfam\eufmfam
  85. \textfont\eufmfam=\teneufm
  86. \scriptfont\eufmfam=\seveneufm
  87. \scriptscriptfont\eufmfam=\fiveeufm
  88. \def\frak#1{{\fam\eufmfam\relax#1}}
  89. \let\goth\frak
  90.  
  91. %  Restore the catcode value for @ that was previously saved.
  92. \catcode`\@=\csname pre amssym.def at\endcsname
  93.  
  94. \endinput
  95.